طبیعت بصری ویژوال بیسیک

دیدید که ویژال بیسیک چیزی بیشتر از یک زبان برنامه نویسی است. از ویژوال بیسیک در نام آنvisual به معنای بصری یا محیط نمایشی است.

کار با ویژال بیسیک

در اولین بار که برنامه را باز می کنید با پنجره new project روبه رو می شوید در این قسمت نوع فرم خود را انتخاب کرده ماننده activex|standard و....

این پنجره شامل 3 قسمت بوده

New:در این پنجره امکان انتخاب فورم مورد نظر شما امکان پذیر می باشد.

Existing:در این پنجره امکان انتخاب project های مختلف که در مکانهای مختلف ذخیره یا... امکان انتخاب می باشد.

Recent:در این قسمت هر projectرا که ذخیره می کنید به صورت دسته ای جمع می شود حالا یک فایلی

در درایو Dباشد حالا چه در درایو c.

DON.T SHOW THIS DIALOG IN THE FUTURE

این قسمت جلو گیری از باز شدن پینجره NEW PRIJECT می باشد.

HELP:از این قسمت وقتی امکان استفاده می باشد که نرم افزار MSDN را نصب کرده باشید.

معرفی قسمت های بیسیک.

نوار ابزار:TOOLBAR:نوار ابزار VB زیر منو قرار دارد. ویژال بیسیک کلا چهار نوار ابزار دارد:

STANDARD:این نوار ابزار زیر منو ظارهر است و پیش فرض است.

DEBUG:وقتی از ابزارهای رفع اشکال برای ردیابی و اصلاح اشکالات استفاده می کنید. این نوار ابزار ظاهر می شود.

EDIT:این نوار ابزار برای تنظیم کردن اشیاء بر روی فرم می باشد

FORM EDITOR:این نوار ابزار برای تنظیم کردن اشیاء بر روی فرم می باشد.

جعبه ابزار:TOOLBOX:

در این پنجره تمامی شی های مختلف برای کار بر روی فرم هستند و حتی امکان اضافه کردن به این پنجره ها می باشد.

پنجرهPROJECT:در این پنجره فرم های انتخابی شما با هر گروه و هر فرم مشخص شده است.

پنجرهPROPERTISE: این پنجره امکان تنضیمات لازم برای هر شیئی را مشخص می کنید.

 

توابع ریاضی در ویژال بیسیک

برای نوشتن برنامه های مهندسی ، محاسباتی ، گرافيکی و آماری نياز داريد تا از برخی توابع رياضی استفاده نمائيد . ويژوال بيسيک ۶ دارای مجموعه ای از توابع است که برای انجام محاسبات عددی پيش بينی شده اند . در اين مقاله ابتدا با اين توابع آشنا شده و سپس چگونگی ايجاد ساير توابع رياضی را که در ميان اين مجموعه وجود ندارند خواهيد ديد . در پايان نيز با توابع رياضی موجود در دات نت آشنا می شويد .

توابع رياضی موجود در ويژوال بيسيک

1 تابع Abs (قدرمطلق) : مقدار بدون علامت يک عدد را برمی گرداند .

2 تابع Atn (آرک تانژانت) : خروجی تابع عددی از نوع double است که برابر زاويه ای است که تانژانت آن عدد ورودی تابع است .

3 تابع Cos ( کسينوس ) : خروجی تابع عددی از نوع double است که برابر کسينوس زاويه ورودی است .

4 تابع Exp (توان نمانی) : خروجی تابع عددی از نوع double است که برابر e به توان ورودی تابع است .

5 تابع Int (تابع کف يا تابع جزء صحيح) : نزديکترين عدد صحيح مساوی يا کوچکتر نسبت به عدد ورودی را برمی گرداند .

6 تابع Log (لگاريتم ) : خروجی تابع عددی از نوع double است که برابر لگاريم طبيعی عدد ورودی است ( لگاريتم بر مبنای عددe يا همان Ln )

7 تابع Round ( گرد کردن ) : خروجی تابع عددی از نوع double است که برابر نزديکترين عدد صحيح به مقدار عدد ورودی است .

8 تابع Sgn (علامت) : خروجی تابع عددی از نوع صحيح است که نشان دهنده علامت عدد ورودی است .

9 تابع Sin (سينوس ) : خروجی تابع عددی از نوع double است که برابر سينوس زاويه ورودی است .

10 تابع Sqr (جذر) : خروجی تابع عددی از نوع double است که برابر ريشه دوم يا جذر عدد ورودی است .

11 تابع Tan (تانژانت) : خروجی تابع عددی از نوع double است که برابر با تانژانت زاويه ورودی ( برحسب راديان ) می باشد .

نکته : برای محاسبه توان n ام يک عدد ( n می توان صحيح يا اعشاری باشد ) از اپراتور ^ استفاده نمائيد . برای مثال :

2 ^ 5 = 32

9 ^ 0.5 = 3

4.2 ^ 3.7 = 202.31

چگونگی ايجاد ساير توابع رياضی که در ويژوال بيسيک 6 وجود ندارند

جدول زير چگونگی محاسبه ساير توابع رياضی که در ويژوال بيسيک وجود ندارند را نشان می دهد

 

سکانت

Sec(X) = 1 / Cos(X)

 

کسکانت

Cosec(X) = 1 / Sin(X)

 

کتانژانت

Cotan(X) = 1 / Tan(X)

 

آرک سينوس

Arcsin(X) = Atn(X / Sqr(1-X * X ))

 

آرک کسينوس

Arccos(X) = Atn(-X / Sqr(1-X * X)) + 2 * Atn(1)

 

آرک سکانت

Arcsec(X) = Atn(X / Sqr(X * X - 1)) + Sgn((X) -1) * (2 * Atn(1))

 

آرک کسکانت

Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))

 

آرک کتانژانت

Arccotan(X) = Atn(X) + 2 * Atn(1)

 

سيونس هيپربوليک

HSin(X) = (Exp(X) - Exp(-X)) / 2

 

کسينوس هيپربوليک

HCos(X) = (Exp(X) + Exp(-X)) / 2

 

تانژانت هيپربوليک

HTan(X) = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))

 

سکانت هيپربوليک

HSec(X) = 2 / (Exp(X) + Exp(-X))

 

کسکانت هيپربوليک

HCosec(X) = 2 / (Exp(X) - Exp(-X))

 

کتانژانت هيپربوليک

HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))

 

آرک سينوس هيپربوليک

HArcsin(X) = Log(X + Sqr(X * X + 1))

 

آرک کسينوس هيپربوليک

HArccos(X) = Log(X + Sqr(X * X - 1))

 

آرک تانژانت هيپربوليک

HArctan(X) = Log((1 + X) / (1 - X)) / 2

 

آرک سکانت هيپربوليک

HArcsec(X) = Log((Sqr(1-X * X) + 1) / X)

 

آرک کسکانت هيپربوليک

HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) +1) / X)

 

آرک کتانژانت هيپربوليک

HArccotan(X) = Log((X + 1) / (X - 1)) / 2

لگاريتم بر مبنای N

LogN(X) = Log(X) / Log(N)

اعداد π و e در ويژوال بيسيک

برای استفاده از عدد پی و عدد e در برنامه های خود ثوابت زير را تعريف نمائيد :

Const Pi = 3.14159265358979

Const e = 2.71828182845904

همچنين عدد پی را می توان به صورت زير تعريف کرد :

Pi = 4*Atn(1)

 

تبديل راديان / درجه

 

چون اکثر توابع مثلثاتی بر حسب راديان کار می کنند گاهی اوقات نياز داريم تا زاويا را از در جه به راديان و بالعکس تبديل کنيم . برای تبديل يک زاويه که بر حسب راديان می باشد به درجه آنرا در 180 ضرب کرده و سپس بر عدد پی تقسيم می کنيم :

Degree(x) =x*180/Pi

 

برای تبديل يک زاويه که بر حسب درجه بيان شده به راديان آنرا در عدد پی ضرب کرده و سپس بر 180 تقسيم می کنيم :

Rad(x) =x*Pi/180

توابع رياضی و VB.Net

مجموعه توابع رياضی در در ويژوال بيسيک دات نت وجود دارند بسيار قويتر و کاملتر هستند . اين مجموعه توابع در کلاس System.Math موجود می باشند :

** در کلاس Math دو ثابت به اسم E و PI برای نشان دادن پايه لگاريتم طبيعی و عدد پی وجود دارند .

** توابع مثلثاتی : Acos ( آرک کسينوس ) ، Asin ( آرک سينوس) ، Atan ( آرک تانژانت) ، Atan2 ( آرک تانژانت خارج قسمت تقسيم ورودی ها ) ، Cos ( کسينوس ) ، Sin ( سينوس ) ، Tan ( تانژانت )

** توابع عمومی : Abs ( قدرمطلق ) ، BigMul ( حاصلضرب کامل دو عدد 32 بيتی ) ، Ceiling ( تابع سقف ) ، DivRem ( خارج قسمت نقسيم دو عدد ) ، Floor ( تابع کف ) ، IEEERemainder ( باقيمانده نقسيم دو عدد ) ، Max ( ماکزيمم بين دو عدد ) ، Min ( مينيمم بين دو عدد ) ، Round ( تابع گرد کردن ) ، Sign ( تابع علامت ) ، Sqrt ( تابع جذر )

** توابع هيپربوليک : Cosh ( کسينوس هيپربوليک ) ، Sinh ( سينوس هيپربوليک ) ، Tanh ( تانژانت هيپربوليک )

** توابع نمايي و لگاريتمی : Exp ( عدد e به توان مقدار ورودی ) ، Log ( لگاريتم ) ، Log10 ( لگاريتم بر پايه 10 ) ، Pow ( تابع توان )

آشنايي با تابع BitBlt

هدف از اين مبحث آموزشي ، آشنايي با تابع BitBlt و برخي ديگر از توابع کتابخانه Win32 GDI براي انجام برخي عمليات گرافيکي مثل double buffering و خواندن sprite از فايل است .

نکته : sprite به کاراکترهاي متحرکي گفته مي شود که در بازيها وجود دارد .

اولين چيزي که به آن نياز داريد ايجاد يک فرم است . خاصيت ScaleMode آنرا برابر 3-Pixel قرار دهيد . پيشنهاد مي کنم که هميشه در هنگام استفاده از فرم بهمراه API از pixel براي scalemode استفاده کنيد .

سپس سايز فرم را به اندازه اي افزايش دهيد تا ScaleWidth برابر 320 و ScaleHeight برابر 256 شود . توجه کنيد که خاصيت HasDC فرم را True قرار دهيد . همچنين از خاصيت AutoRedraw براي فرم استفاده نمي کنيم زيرا مي خواهيم از Double Buffering استفاده کنيم که بسيار سريعتر و کارامدتر مي باشد .

مرحله بعدي declare کردن API هايي است که به آنها نياز داريم :

'blitting

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

'code timer

Private Declare Function GetTickCount Lib "kernel32" () As Long

'creating buffers / loading sprites

Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

'loading sprites

Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

'cleanup

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long  

سوال : DC چيست ؟ DC و يا بعبارت ديگر Device Context ، hDC يک عدد است که به يک آدرس در حافظه اشاره مي کند که داده اي در آن ذخيره شده است . در هنگام استفاده از BitBlt براي اشاره کردن به آدرسي که داده گرافيکي در آنجا ذخيره شده ، استفاده مي شود .

در مرحله بعدي نياز به ذخيره آدرسهاي DC داريم که مي سازيم . آدرسهاي DC مقادير Long هستند همچنين آنها را بصورت Public تعريف مي کنيم :

'our Buffer's DC

Public myBackBuffer As Long

Public myBufferBMP As Long

'The DC of our sprite/graphic

Public mySprite As Long

'coordinates of our sprite/graphic on the screen

Public SpriteX As Long

Public SpriteY As Long

حال بايد تابعي بسازيم که تصاوير گرافيکي درون حافظه load کند . نکته مهمي که بايد به آن توجه کنيد اينست که يک device context خودش به تنهايي هيچ داده گرافيکي ندارد و بايستي يکbitmap موجود باشد تا درون آن load شود براي مثال يک فايل bmp يا يک bitmap خالي که از آن بعنوان back buffer استفاده مي کنيد .

تابعي که خواهيم نوشت يک device context منطبق با صفحه مي سازد سپس فايلهاي گرافيکي مورد نظر را درون device context قرار مي دهد

Public Function LoadGraphicDC(sFileName As String) As Long

'temp variable to hold our DC address

Dim LoadGraphicDCTEMP As Long

'create the DC address compatible with

'the DC of the screen

LoadGraphicDCTEMP = CreateCompatibleDC(GetDC(0))

'load the graphic file into the DC...

SelectObject LoadGraphicDCTEMP, LoadPicture(sFileName)

'return the address of the file

LoadGraphicDC = LoadGraphicDCTEMP

End Function

سوال : double-buffering چيست ؟ زمانيکه يک محيط گرافيکي مي سازيد تا درون آن چيزي را ترسيم کنيد ، شما sprite ها / گرافيکها / متن را درون حافظه blit مي کنيد ( offscrean ) سپس نتيجه نهايي را روي صفحه blit مي کنيد . اين عمل از لرزش تصوير يا flickering جلوگيري مي کند ( زماني رخ مي دهد که چندين sprite مستقيماً روي صفحه blit شوند ) و بسيار سريعتر ازAutoRedraw است .

قبل از اينکه مثالي براي اين تابع ذکر کنم تابع BitBlt را توضيح خواهم داد :

BitBlt تابعي از کتابخانه dll “gdi32” است . اين تابع يک انتقال bit-block از داده هاي مرتبط به يک مستطيل از پيکسلها به يک device context مقصد انجام مي دهد . بعبارت ديگر داده هاي گرافيکي را از محيط گرافيکي ( يک bitmap ) به محيط گرافيکي ديگري ( screen يا يک form ) کپي مي کند . فرم کلي اين تابع بصورت زير است :

Declare Function BitBlt Lib "gdi32" Alias "BitBlt" _

(ByVal hDestDC As Long, _

ByVal x As Long, _

ByVal y As Long, _

ByVal nWidth As Long, _

ByVal nHeight As Long, _

ByVal hSrcDC As Long, _

ByVal xSrc As Long, _

ByVal ySrc As Long, _

ByVal dwRop As Long) As Long

اولين خط بيان مي کند که ما بوسيله gdi32 DLL به تابع BitBlt دسترسي خواهيم داشت . خطوط ديگر پارامترهايي هستند که اين تابع مي گيرد :

hDestDC : hDC مربوط به محيط مقصد ( اگر مي خواهيد مقصد يک فرم باشد از form.hDC استفاده کنيد و يا اينکه آدرس يک backbuffer را که ساخته ايد بدهيد )

x : مختصات افقي محلي که مي خواهيد گرافيک شما ظاهر شود .

y : مختصات عمدي محلي که مي خواهيد گرافيک شما ظاهر شود .

nWidth : عرض گرافيک شما

nHeight : ارتفاع گرافيک شما

hSrcDC : hDC مربوط به محيط مبدا

xSrc : افست x . 0 زماني استفاده مي شود که بخواهيد از سمت چپترين گوشه گرافيک مبدا عملblit را انجام دهيد .

ySrc : افست y

dwRop : مد draw اي که در زمان blitting گرافيکتان مي خواهيد استفاده کنيد ( Raster Operationsيا ROP ) . اين پارامتر مقادير زير را مي تواند بگيرد :

- vbSrcCopy : داده تصوير مبدا را مستقيماً در مقصد کپي مي کند .

- vbSrcPaint : داده هاي تصاوير مبدا و مقصد را با هم OR مي کند ( pseudo-alphablending effect )

- vbSrcAnd : داده هاي تصاوير مبدا و مقصد را با هم AND مي کند ( pseudo-gamma effect )

- vbSrcInvert : داده هاي تصاوير مبدا و مقصد را با هم XOR مي کند

- vbSrcErase : ابتدا داده تصوير مقصد را invert مي کند سپس آنرا با داده تصوير مبدا AND مي کند .

- vbDstInvert : داده تصوير مقصد را invert مي کند و داده تصوير مبدا را در نظر نمي گيرد .

- vbNotSrcCopy : داده تصوير مبدا را invert مي کند و آنرا مستقيماً در مقصد کپي مي کند .

- vbNotSrcErase : داده تصاوير مبدا و مقصد را OR کرده و نتيجه را invert مي کند .

مثالي از کاربرد BitBlt :

BitBlt Form1.hDC, PlayerX, PlayerY, 48, 48, picPlayer.hDC, 0, 0, vbSrcCopy

حال مي خواهيم از BitBlt در يک حلقه استفاده کنيم تا يک image را در فرم حرکت دهيم :

1 – يک فايل bmp با ابعاد 32x32 بسازيد و با نام sprite1.bmp در دايرکتوري پروژه ذخيره کنيد .

2 – يک دکمه در فرم قرار دهيد و نام آنرا cmdTest بگذاريد .

3 – دکمه را در گوشه بالايي فرم و در سمت راست قرار دهيد .

4 – کد زير را براي event مربوط به کليک شدن دکمه بنويسيد :

'Timer variables...

Dim T1 As Long, T2 As Long

ساخت DC براي backbuffer’

myBackBuffer = CreateCompatibleDC(GetDC(0))

ساخت يک سطح bitmap براي DC’

myBufferBMP = CreateCompatibleBitmap(GetDC(0), 320, 256)

load کردن سطح bitmap خالي درون buffer’

SelectObject myBackBuffer, myBufferBMP

قبل از blit کردن درون بافر بايد آنرا با black پر کنيم’

BitBlt myBackBuffer, 0, 0, 320, 256, 0, 0, 0, vbWhiteness

load کردن split توسط تابعي که در بالا نوشتيم’

mySprite = LoadGraphicDC(App.Path & "\sprite1.bmp")

cmdTest.Enabled = False

== شروع حلقه اصلي ==’

خواندن tickcount جاري’

T2 = GetTickCount

Do

DoEvents

T1 = GetTickCount

اگر 15 ميلي ثانيه گذشته بود فريم بعدي شروع شود

If (T1 - T2) >= 15 Then

پاک کردن محل قبلي sprite بوسيله پر کردن آنجا با black

BitBlt myBackBuffer, SpriteX - 1, SpriteY - 1,32, 32, 0, 0, 0, vbBlackness

Blit کردن sprite درون back buffer’

BitBlt myBackBuffer, SpriteX, SpriteY, 32, 32,mySprite, 0, 0, vbSrcPaint

Blit کردن backbuffer روي فرم’

BitBlt Me.hdc, 0, 0, 320, 256, myBackBuffer,0, 0, vbSrcCopy

حرکت دادن sprite روي صفحه’

SpriteX = SpriteX + 1

SpriteY = SpriteY + 1

'update timer

T2 = GetTickCount

End If

Loop Until SpriteX = 320

سپس بايد يک cleanup code بنويسيد تا حافظه هاي را که براي نگهداري تصاوير گرافيکي و bufferها استفاده کرده ايد آزاد کنيد :

Private Sub Form_Unload(Cancel As Integer)

DeleteObject myBufferBMP

DeleteDC myBackBuffer

DeleteDC mySprite

End

End Sub

اگه نظرات بیشتر از ۱۵ نشه دیگه ناراحت میشم ها

نظرات شما عزیزان:

موضوعات مرتبط: آموزش ، ،
برچسب‌ها: